Untitled

library(tidyverse)
datos <- read.csv(file = "../ENTREGA 3/accidentes.csv")
resumen <- datos |> count(sexo)
graf<- ggplot(resumen) +
  geom_col(aes(x=sexo, y =n, fill = sexo))+
  ggthemes::scale_fill_colorblind();graf
plotly::ggplotly(graf)